* Supplementary Table S2

*----------------------------------------------
* CROSS-SECTIONAL DATA
*----------------------------------------------
* load the data
use village-cross-sectional.dta, clear

*drop villages with no diffusion information
drop if village==10
drop if village==28
drop if village==37
drop if village==41
drop if village==66
drop if village==77

* set list of control variables
global controlsx savings shgparticipate fracGM_survey numHH fractionLeaders 

label variable mf "Microfinance uptake"
label variable diffusion_centrality_leader "Diffusion centrality"
label variable communication_centrality_leader "Communication centrality"

sum hh_lend
egen s_hh_lend = std(hh_lend)

label variable s_hh_lend "Leader households that lent money (proportion)"

* OUTPUT TABLE OF SUMMARY STATISTICS
collect export TableS2.xls, replace

pwcorr mf diffusion_centrality_leader communication_centrality_leader leader_degree s_hh_lend $controlsx
